home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
kboot20.d64
/
func.modem'get$
< prev
next >
Wrap
Text File
|
2009-01-23
|
413b
|
20 lines
0010 //
0020 ╞╒╬├ MODEM'GET$(FILE'NUMBER) ├╠╧╙┼─
0030 ─╔═ C$ ╧╞ 1
0040 OLD'LO:=╨┼┼╦($0324)
0050 OLD'HI:=╨┼┼╦($0325)
0060 ╘╥┴╨ ┼╙├-
0070 ╘╥┴╨
0080 ╨╧╦┼ $0324,╨┼┼╦($032A)
0090 ╨╧╦┼ $0325,╨┼┼╦($032B)
0100 C$:=╟┼╘$(FILE'NUMBER,1)
0110 ╚┴╬─╠┼╥
0120 C$:=""
0130 ┼╬─╘╥┴╨
0140 ╨╧╦┼ $0324,OLD'LO
0150 ╨╧╦┼ $0325,OLD'HI
0160 ╘╥┴╨ ┼╙├+
0170 ╥┼╘╒╥╬ C$
0180 ┼╬─╞╒╬├ MODEM'GET$
0190 //